home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual BASIC 5.0 (Ent. Edition) / Vb5ent Extractor.EXE / VB / SAMPLES / CLISRV / BOOKSALE / SERVER / TAXES.CLS < prev   
Encoding:
Text File  |  1996-09-20  |  1.6 KB  |  65 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "Taxes"
  6. Attribute VB_Creatable = True
  7. Attribute VB_Exposed = False
  8. Option Explicit
  9.  
  10. Public Function CalcNationalIncomeTax(cGrossSalary As Currency) As Currency
  11.   frmBookSales.lblStatus(1).Caption = "Calculating National Income Tax"
  12.  
  13.     Select Case cGrossSalary
  14.         Case Is <= 30000
  15.             CalcNationalIncomeTax = cGrossSalary * 0.15
  16.  
  17.         Case cGrossSalary >= 30001 And cGrossSalary <= 60000
  18.             CalcNationalIncomeTax = cGrossSalary * 0.28
  19.  
  20.         Case cGrossSalary >= 60001 And cGrossSalary <= 100000
  21.             CalcNationalIncomeTax = cGrossSalary * 0.38
  22.  
  23.         Case cGrossSalary > 100000
  24.             CalcNationalIncomeTax = cGrossSalary * 0.48
  25.  
  26.         Case Else
  27.             CalcNationalIncomeTax = False
  28.  
  29.     End Select
  30.  
  31. End Function
  32.  
  33. Public Function CalcSalesTax(cGrossSalary As Currency, cYearToDate As Currency) As Currency
  34.   
  35.   frmBookSales.lblStatus(1).Caption = "Calculating Estimated Sales Tax..."
  36.       
  37.     If cYearToDate > 58000 Then
  38.       CalcSalesTax = 0
  39.     
  40.     Else
  41.         CalcSalesTax = cGrossSalary * 0.0765
  42.         
  43.     End If
  44.     
  45. End Function
  46.  
  47. Public Function CalcRegionalIncomeTax(cGrossSalary As Currency, strState As String) As Currency
  48.  
  49.   frmBookSales.lblStatus(1).Caption = "Calculating Regional Income Tax..."
  50.     
  51.     Select Case strState
  52.       Case "PA"
  53.         CalcRegionalIncomeTax = cGrossSalary * 0.028
  54.         
  55.       Case "WA"
  56.         CalcRegionalIncomeTax = 0
  57.           
  58.       Case Else
  59.         CalcRegionalIncomeTax = cGrossSalary * 0.022
  60.             
  61.     End Select
  62.     
  63. End Function
  64.  
  65.